#!/usr/bin/perl 
use DBI;
use CGI;
# use TTrakerSite;
use TTraker;

& print_header;
& initialize_dbi;
my $form_ref = &parse_input;
my %FORM_DATA = %$form_ref; 
my $num = $FORM_DATA{'empNum'};
my $name = $FORM_DATA{'empName'};
my $job = $FORM_DATA{'empJob'};
my $loc = $FORM_DATA{'empLoc'};

foreach $key (keys %FORM_DATA) {
  if ($key =~ /^new_std_/ && $FORM_DATA{$key} ne "" ) {
    $id = $key;
    $id =~ s/new_std_//;
    $std = $FORM_DATA{$key};
    update_master_standard_time ($id, $std);
  } elsif ($key =~ /^task_/) {
    # do not print tasks that have no value
  } else {   
#   print "KEY: $key - $FORM_DATA{$key}<br/>";   
  } 
}

adm_activity_screen_from_pm($num, $name, $job, $loc);

db_disconnect();



